QuickTime VR Showcase/QuickTime VR Showcase.iso/3rd Parties/Software/Apple/AMT 2.1 New Features Demo/SOURCES/oAMT_Information_5.k

Text File | 1996-12-21 | 12.9 KB | 615 lines | [TEXT/MPS ]

object oAMT_Information_5 is cDefaultContainer
with
    Binder is oBinder;
    Label is -1;
    Items is [
        oKeyboard_Volume__5_4,
        oClick_Sound__Up__5_13,
        oClick_Sound__down__5_14,
        oAI_BCK_PIC_5_5,
        oAMT_Inverse_5_8,
        oCredits_Inverse_5_9,
        oMenu_Inverse_5_10,
        oCredits_Yellow_Highlight_5_7,
        oAMT_Yellow_Highlight_5_6,
        oExit_Yellow_Highlight_5_11,
        oMenu_Yellow_Highlight_5_12,
        oS6_eddie_MOV_5_15,
        oAI_CRD_RTF_5_16,
        oAI_NF_RTF_5_17,
        oAI_NF_RTF_FIRST_5_18,
        oAI_AMT_RTF_5_19,
        oLaunch_Netscape_5_20,
        oOpen_URL_5_21,
        oOpen_URL_5_22,
        oOpen_URL_5_23
    ];
end;


object oKeyboard_Volume__5_4 is cKeyboardHandler
with
    Behavior is cDefaultBehavior
    has
        KeyDown(theTarget, theKey)
        use
            KeyMatch;

            do
                KeyMatch := theKey = '-';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(-1);
                end;
                KeyMatch := theKey = '=';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
                KeyMatch := theKey = '+';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oSoundVolume.StepIndexBy(1);
                end;
                KeyMatch := theKey = 'p';
                if KeyMatch then
                    theTarget.DoDefaultMethod := false;

                    oAI_CRD_RTF_5_16.Print();
                end;
            end;

    with
        Enabled is true; Shown is false;
        X is 30; Y is 24; Width is 0; Height is 0;
    end;
end;


object oClick_Sound__Up__5_13 is cSoundHandler
with
    Supplier is oS3_2clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 247; Y is 128; Width is 32; Height is 24;
    end;
end;


object oClick_Sound__down__5_14 is cSoundHandler
with
    Supplier is oS3_clk_WAV;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 304; Y is 228; Width is 32; Height is 24;
    end;
end;


object oAI_BCK_PIC_5_5 is cPictureHandler
with
    Duration is -1;
    Supplier is oAI_BCK_PIC;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object oAMT_Inverse_5_8 is cPictureHandler
with
    Duration is -1;
    Supplier is oAI_AMTI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 406; Y is 438; Width is 113; Height is 42;
    end;
end;


object oCredits_Inverse_5_9 is cPictureHandler
with
    Duration is -1;
    Supplier is oAI_CRI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 299; Y is 438; Width is 95; Height is 42;
    end;
end;


object oMenu_Inverse_5_10 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUI_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
                theTarget.Enable(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 167; Y is 438; Width is 123; Height is 43;
    end;
end;


object oCredits_Yellow_Highlight_5_7 is cPictureHandler
with
    Duration is -1;
    Supplier is oAI_CRH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oCredits_Inverse_5_9.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oAI_CRD_RTF_5_16.Show(true);
                oAI_CRD_RTF_5_16.Enable(true);
                oAI_NF_RTF_5_17.Enable(true);
                oAI_NF_RTF_5_17.Show(true);
                oAI_NF_RTF_FIRST_5_18.Enable(false);
                oAI_NF_RTF_FIRST_5_18.Show(false);
                oAI_AMT_RTF_5_19.Show(false);
                oAI_AMT_RTF_5_19.Enable(false);
                oClick_Sound__down__5_14.Run(true);
                oBinder.Refresh();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oCredits_Inverse_5_9.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__5_13.Run(true);
            end;

    with
        Enabled is true; Shown is true;
        X is 296; Y is 425; Width is 100; Height is 56;
    end;
end;


object oAMT_Yellow_Highlight_5_6 is cPictureHandler
with
    Duration is -1;
    Supplier is oAI_AMTH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oAMT_Inverse_5_8.Show(true);
                oAI_AMT_RTF_5_19.Show(true);
                oAI_AMT_RTF_5_19.Enable(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oAI_CRD_RTF_5_16.Show(false);
                oAI_NF_RTF_FIRST_5_18.Enable(false);
                oAI_NF_RTF_FIRST_5_18.Show(false);
                oAI_NF_RTF_5_17.Show(true);
                oAI_NF_RTF_5_17.Enable(true);
                oClick_Sound__down__5_14.Run(true);
                oBinder.Refresh();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oAMT_Inverse_5_8.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__5_13.Run(true);
            end;

    with
        Enabled is true; Shown is true;
        X is 403; Y is 426; Width is 118; Height is 54;
    end;
end;


object oExit_Yellow_Highlight_5_11 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_ETYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
--                ?.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oClick_Sound__down__5_14.Run(true);
                oBinder.Refresh();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
--                ?.Show(false);
                oClick_Sound__Up__5_13.Run(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is true;
        X is 528; Y is 426; Width is 111; Height is 54;
    end;
end;


object oMenu_Yellow_Highlight_5_12 is cPictureHandler
with
    Duration is -1;
    Supplier is oS2_MNUYH_PIC;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                theTarget.Show(true);
            end;

        MouseLeave(theTarget, theX, theY)
            do
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Show(false);
                oMenu_Inverse_5_10.Show(true);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := true;
                oBinder.MouseSpin := oHandSpin;
                if (oBinder.MouseSpin @ 1).Data=void then
                    oBinder.MouseSpin.EachUp(Load);
                end;
                if not oBinder.MouseSpin.IsRunning() then
                    oBinder.MouseSpin.Start();
                end;
                oBinder.Refresh();
                oClick_Sound__down__5_14.Run(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.Show(true);
                oMenu_Inverse_5_10.Show(false);
                -- Turn off the spining cursor, if there is one
                if oBinder.MouseSpin<>void then
                    if oBinder.MouseSpin.IsRunning() then
                        oBinder.MouseSpin.Stop();
                    end;
                    oBinder.MouseSpin := void;
                end;
                theTarget.Container.OverrideCursor := false;
                oBinder.Refresh();
                oClick_Sound__Up__5_13.Run(true);
                oBinder.Goto(oMain_Menu_1);
            end;

    with
        Enabled is true; Shown is true;
        X is 163; Y is 427; Width is 126; Height is 53;
    end;
end;


object oS6_eddie_MOV_5_15 is cVRObjHandler
with
    Supplier is oS6_EDDY_MOV;
    Behavior is cDefaultBehavior
    has
        Onscreen(theTarget)
            do
                theTarget.Show(true);
            end;

    with
        Enabled is true; Shown is false;
        X is 541; Y is 239; Width is 80; Height is 120;
    end;
end;


object oAI_CRD_RTF_5_16 is cTextScrollerHandler
with
    Red is 255; Green is 255; Blue is 255;
    Duration is -1;
    Transparent is true;
    Margin is 6;
    Supplier is oAI_CRD_RTF;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 178; Y is 294; Width is 255; Height is 120;
    end;
end;


object oAI_NF_RTF_5_17 is cTextScrollerHandler
with
    Red is 255; Green is 255; Blue is 255;
    Duration is -1;
    Transparent is true;
    Margin is 6;
    Supplier is oAI_NF_RTF;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 178; Y is 19; Width is 255; Height is 260;
    end;
end;


object oAI_NF_RTF_FIRST_5_18 is cTextScrollerHandler
with
    Red is 255; Green is 255; Blue is 255;
    Duration is -1;
    Transparent is true;
    Margin is 6;
    Supplier is oAI_NF_RTF;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is true; Shown is true;
        X is 178; Y is 19; Width is 255; Height is 394;
    end;
end;


object oAI_AMT_RTF_5_19 is cTextScrollerHandler
with
    Red is 255; Green is 255; Blue is 255;
    Duration is -1;
    Transparent is true;
    Margin is 6;
    Supplier is oAI_AMT_RTF;
    Behavior is cDefaultBehavior
    has
        TextSelected(theTarget, theHotText)
        use
            HitText;

            do
                HitText :=  (theHotText - "here,")=0;
                if HitText then
                    theTarget.DoDefaultMethod := false;


                    oLaunch_Netscape_5_20.StoredLaunch(false,"", "", "", "", "Select your Web browser of choice");

                end;
                HitText :=  (theHotText - "http://amt.apple.com\$0D")=0;
                if HitText then
                    theTarget.DoDefaultMethod := false;


                    oOpen_URL_5_21.OpenURL("http://amt.apple.com");
                end;
                HitText :=  (theHotText - "http://www.devworld.apple.com/dev/du.shtml ")=0;
                if HitText then
                    theTarget.DoDefaultMethod := false;


                    oOpen_URL_5_22.OpenURL("http://devworld.apple.com/dev/du.shtml");
                end;
                HitText :=  (theHotText - "[e-mail]")=0;
                if HitText then
                    theTarget.DoDefaultMethod := false;


                    oOpen_URL_5_23.OpenURL("mailto:[e-mail]");
                end;
            end;

    with
        Enabled is false; Shown is false;
        X is 178; Y is 294; Width is 255; Height is 120;
    end;
end;


object oLaunch_Netscape_5_20 is cApplicationLauncher
with
    DDEServerList is ["NETSCAPE","IEXPLORE", "MOSAIC"];
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 0; Y is 0; Width is 0; Height is 0;
    end;
end;


object oOpen_URL_5_21 is cApplicationLauncher
with
    DDEServerList is ["NETSCAPE","IEXPLORE", "MOSAIC"];
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 0; Y is 0; Width is 0; Height is 0;
    end;
end;


object oOpen_URL_5_22 is cApplicationLauncher
with
    DDEServerList is ["NETSCAPE","IEXPLORE", "MOSAIC"];
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 0; Y is 0; Width is 0; Height is 0;
    end;
end;


object oOpen_URL_5_23 is cApplicationLauncher
with
    DDEServerList is ["NETSCAPE","IEXPLORE", "MOSAIC"];
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is false;
        X is 0; Y is 0; Width is 0; Height is 0;
    end;
end;